inherited frmRegioesCidades: TfrmRegioesCidades
  Left = 590
  Top = 215
  Width = 797
  Height = 593
  Caption = 'Regi'#245'es e Cidades'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 510
    Width = 781
  end
  inherited tbrBotoes: TsToolBar
    Width = 781
    TabOrder = 2
    inherited spbIncluir: TsSpeedButton
      Visible = False
    end
    inherited spbAlterar: TsSpeedButton
      Visible = False
    end
    inherited spbExcluir: TsSpeedButton
      Visible = False
    end
    inherited spbConsultar: TsSpeedButton
      Visible = False
    end
    inherited spbVoltar: TsSpeedButton
      Visible = False
    end
  end
  object sPanel1: TsPanel [2]
    Left = 0
    Top = 65
    Width = 781
    Height = 160
    Align = alTop
    TabOrder = 3
    SkinData.SkinSection = 'PANEL'
    object sLabel1: TsLabel
      Left = 1
      Top = 1
      Width = 779
      Height = 13
      Align = alTop
      Alignment = taCenter
      Caption = 'Regi'#245'es Cadastradas no Sistema'
      ParentFont = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 2171169
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
    end
    object dbgRegioes: TRxDBGrid
      Left = 1
      Top = 14
      Width = 779
      Height = 145
      Align = alClient
      DataSource = dtsRegioes
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = dbgRegioesCellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'CODIGO_REGIAO'
          Title.Caption = 'C'#243'd. Regi'#227'o'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NOME_REGIAO'
          Title.Caption = 'Nome Regi'#227'o'
          Visible = True
        end>
    end
  end
  object dbgCidades: TRxDBGrid [3]
    Left = 0
    Top = 266
    Width = 329
    Height = 244
    Align = alLeft
    DataSource = dtsCidades
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = dbgCidadesCellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'CODIGO_UF'
        Title.Caption = 'UF'
        Width = 35
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOME_CIDADE'
        Title.Caption = 'Cidade'
        Width = 260
        Visible = True
      end>
  end
  object dbgRegiaoCidade: TRxDBGrid [4]
    Left = 448
    Top = 266
    Width = 333
    Height = 244
    Align = alRight
    DataSource = dtsRegioesCidade
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = dbgRegiaoCidadeCellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'CODIGO_UF'
        Title.Caption = 'UF'
        Width = 35
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOME_CIDADE'
        Title.Caption = 'Cidade'
        Width = 260
        Visible = True
      end>
  end
  object btnAdicionaCidade: TsBitBtn [5]
    Left = 336
    Top = 296
    Width = 105
    Height = 33
    TabOrder = 0
    OnClick = btnAdicionaCidadeClick
    Glyph.Data = {
      F6060000424DF606000000000000360000002800000018000000180000000100
      180000000000C0060000120B0000120B00000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF351500351500381600431A00431A
      00381600361600351500FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF331400361600491C00702C00
      873500903800903800893500772E004F1F00381600351500FF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4B1D00471C007B
      3000A54100B14500AF4400AC4300AC4300AF4400B14500A74100843400532000
      381600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF5722
      005D2400A74100B14500AC4300A74100A74100A74100A74100A74100A74100AA
      4200B14500AC43006C2A003A1700FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FF5F25006C2A00BD4A00B64700AA4200A74100A74100A03F00A03F00A741
      00A74100A74100A74100A74100AC4300B14500732D003A1700FF00FFFF00FFFF
      00FFFF00FFFF00FF4119006C2A00CC5000C04B00B64700B14500AA4200A34000
      AA4200A74100A74100A74100A74100A74100A74100A74100AA4200B14500702C
      00381600FF00FFFF00FFFF00FFFF00FF491C00CA4F00D45300C24C00C04B00B6
      4700A34000AA4200A74100D0935EFAF2EBFAF2EBE1B893AA4703A74100A74100
      A74100AA4200AF44004D1E00FF00FFFF00FFFF00FF552100903800E95B00D152
      00CA4F00BD4A00AC4300AF4400AA4200A74100D49C6AFFFFFFFFFFFFFFFFFFE2
      BB97AA4703A74100A74100A74100B14500843400381600FF00FFFF00FF572200
      D75400E65A00D95500CA4F00B14500AC4300AC4300AA4200A74100AC4905E0B5
      8FFFFFFFFFFFFFFFFFFFE0B690AA4502A74100A74100AA4200AA4200491C00FF
      00FF5B2300792F00F66000E35900DE5700C74E00B64700AA4200AA4200AA4200
      AA4200AA4200AA4200D9A679FFFEFEFFFFFFFFFFFFDDB189A94401A74100A741
      00B145006427003C17005B23009E3E00FF6400EE5D00DE5700EF6C0DD56B19BC
      6018C96618CC6718C26318C26318C46216B85E18E5C2A1FFFFFFFFFFFFFFFFFF
      DAAB80A74200A74100B145007B30003C1700662800BB4900FF6C06F66000FF64
      00FEE9D4FFFAF6FEFAF6FFFAF6FFFAF6FFFAF6FFFAF6FFFBF6FCF7F3FAF4EEFF
      FFFFFFFFFFFFFFFFFFFFFFD7A173A74100B145008735003A1700702C00D75400
      FF7F1CFF6601FB6300FFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAF4EEAA4200AF44008935004B
      1D00792F00D75400FF9239FF7611FB6300FED1A7FFE9D4FFE9D3FFE9D3FFE9D3
      FFE9D3FFE9D3FEE7D3F6E0CAF7E9DCFFFFFFFFFFFFFFFFFFFCF7F3CE8141AC43
      00B145008735003C1700803200CC5000FF9E4CFF9035F86200FB6501FB6803FB
      6803FB6803FB6803FB6803ED6203D95600D76B18F4D7BAFFFFFFFFFFFFFCF4ED
      D87F35CA4F00B44600B14500772E003C1700FF00FFAC4300FF9D4AFFAF69FF79
      15E15800FB6300FB6300FB6300FB6300FB6300F66000EF7D23F8E2CCFFFFFFFF
      FFFFFBEFE3DC7A2CCA4F00C04B00AF4400B145005D2400FF00FFFF00FFB64700
      FF801EFFC591FFA354FF6903E15800F86200FB6300FB6300FB6300FC8E33FFF4
      EBFFFFFFFFFFFFFAEADCD87423C74E00C24C00B84800B64700AC4300431A00FF
      00FFFF00FFFF00FFD95500FFBC81FFCC9DFF9035FF6400DE5700F66000FB6300
      FB6300FEC18AFFFFFFFFFFFFFAE5D0DE701CCF5100CC5000C74E00BD4A00C74E
      00823300FF00FFFF00FFFF00FFFF00FFF05E00FF801EFFCFA1FFCC9DFF8E32FF
      6903E15800F66000FB6300FC8627FFEBD9FFD4ACE06C16D95500D75400D15200
      CC5000CC5000C04B004B1D00FF00FFFF00FFFF00FFFF00FFFF00FFCA4F00FF9A
      46FFD9B5FFD4ABFFA050FF7915F66000EE5D00FF6903FB6300EB5C00EE5D00E9
      5B00E65A00DE5700D95500D453006E2B00FF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFC54D00FF9D4AFFD9B5FFE1C4FFC18AFF9E4CFF8728FF7611FF6F
      09FF720CFF750FFF750FFF6D07FB6300E35900792F00FF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFD95500FF8424FFBC81FFD4ABFFD9B5
      FFCC9DFFBC81FFB16DFFAA60FFA050FF8E32FF7915F05E007B3000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFD95500D9
      5500FF8728FFAA60FFB87AFFB87AFFB16DFFA456FF9035FF720CC24C006C2A00
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFD95500D75400F66000F66000F86200E95B00BD4A0082
      3300FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    SkinData.SkinSection = 'BUTTON'
  end
  object btnRemoveCidade: TsBitBtn [6]
    Left = 336
    Top = 336
    Width = 105
    Height = 33
    TabOrder = 1
    OnClick = btnRemoveCidadeClick
    Glyph.Data = {
      F6060000424DF606000000000000360000002800000018000000180000000100
      180000000000C0060000120B0000120B00000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF351500351500381600431A00431A
      00381600361600351500FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF331400361600491C00702C00
      873500903800903800893500772E004F1F00381600351500FF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4B1D00471C007B
      3000A54100B14500AF4400AC4300AC4300AF4400B14500A74100843400532000
      381600FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF5722
      005D2400A74100B14500AC4300A74100A74100A74100A74100A74100A74100AA
      4200B14500AC43006C2A003A1700FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FF5F25006C2A00BD4A00B64700AA4200A74100A74100A03F00A03F00A741
      00A74100A74100A74100A74100AC4300B14500732D003A1700FF00FFFF00FFFF
      00FFFF00FFFF00FF4119006C2A00CC5000C04B00B64700B14500AA4200A34000
      AA4200A74100A74100A74100A74100A74100A74100A74100AA4200B14500702C
      00381600FF00FFFF00FFFF00FFFF00FF491C00CA4F00D45300C24C00C04B00B6
      4700A34000AC4803E1B893FAF2EBFAF2EBD0935EA74100A74100A74100A74100
      A74100AA4200AF44004D1E00FF00FFFF00FFFF00FF552100903800E95B00D152
      00CA4F00BD4A00AC4300B14A03E2BB97FFFFFFFFFFFFFFFFFFD49C6AA74100A7
      4100A74100A74100A74100A74100B14500843400381600FF00FFFF00FF572200
      D75400E65A00D95500CA4F00B14500AF4702E1B790FFFFFFFFFFFFFFFFFFE0B5
      8FAC4905A74100A74100A74100A74100A74100A74100AA4200AA4200491C00FF
      00FF5B2300792F00F66000E35900DE5700C74E00B74901DEB289FFFFFFFFFFFF
      FFFEFED9A779AA4200A74100A74100A74100A74100A74100A74100A74100A741
      00B145006427003C17005B23009E3E00FF6400EE5D00DE5700EE5E00EAB280FF
      FFFFFFFFFFFFFFFFE9C4A1C26318C46216B85E18B65D18B65D18B65D18B65D18
      B65E19B0520DA74100B145007B30003C1700662800BB4900FF6C06F66000FF64
      00FCB473FFFFFFFFFFFFFFFFFFFFFFFFFEF6EEFFF8F3FFFBF6FCFAF6FCFAF6FC
      FAF6FCFAF6FCFAF6FCFAF6F3E3D4A74100B145008735003A1700702C00D75400
      FF7F1CFF6601FB6300FFF6EEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEAA4200AF44008935004B
      1D00792F00D75400FF9239FF7611FB6300FC9641FFF8F3FFFFFFFFFFFFFFFFFF
      FFEDDCFFE3CAFEE7D3F7E5D3F4E3D3F4E3D3F4E3D3F3E3D3F4E3D4EAC7A7AC43
      00B145008735003C1700803200CC5000FF9E4CFF9035F86200FB6300FC8F35FF
      F6EDFFFFFFFFFFFFFEDABAEF7518D95600D05703D05703CF5603CF5603CA5403
      CA5403CA5101B44600B14500772E003C1700FF00FFAC4300FF9D4AFFAF69FF79
      15E15800FB6300FC892CFFF0E3FFFFFFFFFFFFFEE5CCEF7D23D75400CF5100CF
      5100CF5100CF5100CA4F00C04B00AF4400B145005D2400FF00FFFF00FFB64700
      FF801EFFC591FFA354FF6903E15800F86200FC8323FFEDDCFFFFFFFFFFFFFFF4
      EBF08933D15200CF5100CC5000C74E00C24C00B84800B64700AC4300431A00FF
      00FFFF00FFFF00FFD95500FFBC81FFCC9DFF9035FF6400DE5700F66000FC7D1C
      FFE7D0FFFFFFFFFFFFFBC08AD95500D75400CF5100CC5000C74E00BD4A00C74E
      00823300FF00FFFF00FFFF00FFFF00FFF05E00FF801EFFCFA1FFCC9DFF8E32FF
      6903E15800F66000FB7816FED4ACFFEBD9FF8627D95500D95500D75400D15200
      CC5000CC5000C04B004B1D00FF00FFFF00FFFF00FFFF00FFFF00FFCA4F00FF9A
      46FFD9B5FFD4ABFFA050FF7915F66000EE5D00FF6903FB6300EB5C00EE5D00E9
      5B00E65A00DE5700D95500D453006E2B00FF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFC54D00FF9D4AFFD9B5FFE1C4FFC18AFF9E4CFF8728FF7611FF6F
      09FF720CFF750FFF750FFF6D07FB6300E35900792F00FF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFD95500FF8424FFBC81FFD4ABFFD9B5
      FFCC9DFFBC81FFB16DFFAA60FFA050FF8E32FF7915F05E007B3000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFD95500D9
      5500FF8728FFAA60FFB87AFFB87AFFB16DFFA456FF9035FF720CC24C006C2A00
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFD95500D75400F66000F66000F86200E95B00BD4A0082
      3300FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    SkinData.SkinSection = 'BUTTON'
  end
  object sPanel2: TsPanel [7]
    Left = 0
    Top = 225
    Width = 781
    Height = 41
    Align = alTop
    TabOrder = 6
    SkinData.SkinSection = 'PANEL'
    object sLabel2: TsLabel
      Left = 216
      Top = 12
      Width = 76
      Height = 13
      Caption = 'Filtro de Estado:'
      ParentFont = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 2171169
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
    end
    object sLabel3: TsLabel
      Left = 16
      Top = 12
      Width = 61
      Height = 13
      Caption = 'Filtro Cidade:'
      ParentFont = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 2171169
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
    end
    object sLabel4: TsLabel
      Left = 528
      Top = 12
      Width = 61
      Height = 13
      Caption = 'Filtro Cidade:'
      ParentFont = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 2171169
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
    end
    object dblUF: TsDBLookupComboBox
      Left = 296
      Top = 8
      Width = 209
      Height = 21
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      KeyField = 'CODIGO_UF'
      ListField = 'NOME_UF'
      ListSource = dtsUF
      ParentFont = False
      TabOrder = 0
      OnCloseUp = dblUFCloseUp
      BoundLabel.Indent = 0
      BoundLabel.Font.Charset = DEFAULT_CHARSET
      BoundLabel.Font.Color = clWindowText
      BoundLabel.Font.Height = -11
      BoundLabel.Font.Name = 'MS Sans Serif'
      BoundLabel.Font.Style = []
      BoundLabel.Layout = sclLeft
      BoundLabel.MaxWidth = 0
      BoundLabel.UseSkinColor = True
      SkinData.SkinSection = 'COMBOBOX'
    end
    object edtCidadeCidade: TsEdit
      Left = 88
      Top = 8
      Width = 121
      Height = 21
      CharCase = ecUpperCase
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnChange = edtCidadeCidadeChange
      SkinData.SkinSection = 'EDIT'
      BoundLabel.Indent = 0
      BoundLabel.Font.Charset = DEFAULT_CHARSET
      BoundLabel.Font.Color = clWindowText
      BoundLabel.Font.Height = -11
      BoundLabel.Font.Name = 'MS Sans Serif'
      BoundLabel.Font.Style = []
      BoundLabel.Layout = sclLeft
      BoundLabel.MaxWidth = 0
      BoundLabel.UseSkinColor = True
    end
    object edtRegiaoCidade: TsEdit
      Left = 600
      Top = 8
      Width = 121
      Height = 21
      CharCase = ecUpperCase
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnChange = edtRegiaoCidadeChange
      SkinData.SkinSection = 'EDIT'
      BoundLabel.Indent = 0
      BoundLabel.Font.Charset = DEFAULT_CHARSET
      BoundLabel.Font.Color = clWindowText
      BoundLabel.Font.Height = -11
      BoundLabel.Font.Name = 'MS Sans Serif'
      BoundLabel.Font.Style = []
      BoundLabel.Layout = sclLeft
      BoundLabel.MaxWidth = 0
      BoundLabel.UseSkinColor = True
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 672
    Top = 24
  end
  object qryRegioes: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM REGIAO')
    Left = 280
    Top = 121
    object qryRegioesCODIGO_REGIAO: TAutoIncField
      FieldName = 'CODIGO_REGIAO'
      ReadOnly = True
    end
    object qryRegioesNOME_REGIAO: TStringField
      FieldName = 'NOME_REGIAO'
      Size = 50
    end
  end
  object dtsRegioes: TDataSource
    DataSet = qryRegioes
    Left = 384
    Top = 129
  end
  object qryCidades: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT C.CODIGO_CIDADE,'
      '       C.CODIGO_UF,'
      '       C.NOME_CIDADE'
      'FROM CIDADE C'
      'WHERE NOT EXISTS (SELECT 1'
      '                  FROM REGIOES_CIDADES RC'
      '                  WHERE RC.CODIGO_CIDADE = C.CODIGO_CIDADE)'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      'ORDER BY C.CODIGO_UF,'
      '         C.NOME_CIDADE ')
    Left = 32
    Top = 312
    object qryCidadesCODIGO_CIDADE: TAutoIncField
      FieldName = 'CODIGO_CIDADE'
      ReadOnly = True
    end
    object qryCidadesCODIGO_UF: TStringField
      FieldName = 'CODIGO_UF'
      Size = 2
    end
    object qryCidadesNOME_CIDADE: TStringField
      FieldName = 'NOME_CIDADE'
      Size = 300
    end
  end
  object dtsCidades: TDataSource
    DataSet = qryCidades
    Left = 144
    Top = 312
  end
  object qryRegioesCidade: TADOQuery
    Connection = frmPrincipal.cnn
    DataSource = dtsRegioes
    Parameters = <
      item
        Name = 'CODIGO_REGIAO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT R.NOME_REGIAO,'
      '       C.CODIGO_UF,'
      '       C.NOME_CIDADE, RC.CODIGO_REGIAO, RC.CODIGO_CIDADE'
      'FROM REGIAO R,'
      '     CIDADE C,'
      '     REGIOES_CIDADES RC'
      'WHERE RC.CODIGO_CIDADE = C.CODIGO_CIDADE'
      '      AND RC.CODIGO_REGIAO = R.CODIGO_REGIAO'
      '      AND RC.CODIGO_REGIAO = :CODIGO_REGIAO'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '      '
      ' ')
    Left = 528
    Top = 328
    object qryRegioesCidadeNOME_REGIAO: TStringField
      FieldName = 'NOME_REGIAO'
      Size = 50
    end
    object qryRegioesCidadeCODIGO_UF: TStringField
      FieldName = 'CODIGO_UF'
      Size = 2
    end
    object qryRegioesCidadeNOME_CIDADE: TStringField
      FieldName = 'NOME_CIDADE'
      Size = 300
    end
    object qryRegioesCidadeCODIGO_REGIAO: TIntegerField
      FieldName = 'CODIGO_REGIAO'
    end
    object qryRegioesCidadeCODIGO_CIDADE: TIntegerField
      FieldName = 'CODIGO_CIDADE'
    end
  end
  object dtsRegioesCidade: TDataSource
    DataSet = qryRegioesCidade
    Left = 640
    Top = 344
  end
  object qryUF: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM UF ORDER BY NOME_UF ASC')
    Left = 472
    Top = 209
    object qryUFCODIGO_UF: TStringField
      FieldName = 'CODIGO_UF'
      Size = 2
    end
    object qryUFNOME_UF: TStringField
      FieldName = 'NOME_UF'
      Size = 100
    end
    object qryUFCODIGO_IBGE: TIntegerField
      FieldName = 'CODIGO_IBGE'
    end
  end
  object dtsUF: TDataSource
    DataSet = qryUF
    Left = 536
    Top = 217
  end
  object qryAdicionaCidade: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_REGIAO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_CIDADE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO REGIOES_CIDADES'
      '('
      '    CODIGO_REGIAO, CODIGO_CIDADE'
      ')'
      'VALUES (:CODIGO_REGIAO, :CODIGO_CIDADE)')
    Left = 376
    Top = 384
  end
  object qryRemoveCidade: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'CODIGO_REGIAO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_CIDADE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'DELETE FROM REGIOES_CIDADES'
      'WHERE CODIGO_REGIAO = :CODIGO_REGIAO'
      '      AND CODIGO_CIDADE = :CODIGO_CIDADE')
    Left = 376
    Top = 432
  end
end
